home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 April: Mac OS SDK / Dev.CD Apr 98 SDK2.toast / Development Kits (Disc 2) / ScriptX / Code Samples / untested / tcpip / ifish / loadme.sx < prev    next >
Encoding:
Text File  |  1996-05-21  |  1.2 KB  |  61 lines  |  [TEXT/ttxt]
  1. --<<<-
  2. -- Filename: 
  3. --     loadme.sx
  4.  
  5. -- Other Files Required:
  6. --    wrapper.sx, mediaimp.sx, animate.sx, fish.sx, animdemo.sx
  7.  
  8. -- Purpose:  
  9. --    Loading a demo of the Animation class.
  10.  
  11. -- Specialized Classes:  
  12. --    None
  13.  
  14. -- Instructions to User: 
  15. --    File this in from ScriptX.
  16.  
  17. -- Author:
  18. --     Steve Mayer
  19. -- log output to a file
  20.  
  21. if not (getmodule @WidgetInterface) do
  22.     tc := open librarycontainer \
  23.         dir: thestartdir \
  24.         path: "widgets.sxl"
  25.  
  26.  
  27. module InternetFish
  28. uses ScriptX
  29. uses WidgetInterface
  30. exports startFish
  31. end
  32.  
  33. in module InternetFish
  34.  
  35. if not (isdefined tcpstream) do process (new loader) "loadable/web"
  36.  
  37.  
  38. fileIn theScriptDir name: "wrapper.sx"
  39. fileIn theScriptDir name: "mediaimp.sx"
  40. fileIn theScriptDir name: "animate.sx" 
  41. fileIn theScriptDir name: "fish.sx" 
  42. fileIn theScriptDir name: "mqueue.sx"
  43. fileIn theScriptDir name: "connect.sx"
  44. fileIn theScriptDir name: "connectm.sx"
  45. fileIn theScriptDir name: "animdemo.sx"
  46.  
  47. function demo -> (
  48.     server := new animationdemo state: @lost
  49.     show server
  50.     client := new animationdemo state: @own
  51.     show client
  52.     )
  53.  
  54. function startFish tc -> (
  55.     if not (isdefined tcpstream) do process (new loader) "loadable/web"
  56.     foreach tc load undefined
  57.     startDemo AnimationDemo
  58. )
  59.  
  60. -->>>
  61.